Revista do CD-ROM 47/CD-ROM 47/CD-ROM 47.iso/aplicat/minibase/_setup.1/MiniBase.exe/0/RCDATA/TTABLEDESIGNER/TTABLEDESIGNER.txt

Text File | 1999-03-12 | 12.0 KB | 486 lines

object TableDesigner: TTableDesigner
  Left = 179
  Top = 109
  BorderStyle = bsDialog
  Caption = 'Table designer'
  ClientHeight = 357
  ClientWidth = 521
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 521
    Height = 304
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 5
    ParentColor = True
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 5
      Top = 5
      Width = 511
      Height = 294
      ActivePage = FieldSheet
      Align = alClient
      TabOrder = 0
      OnChange = PageControl1Change
      OnChanging = PageControl1Changing
      object FieldSheet: TTabSheet
        Caption = 'Field details'
        object Label3: TLabel
          Left = 144
          Top = 224
          Width = 50
          Height = 13
          Caption = 'Max Value'
        end
        object Label2: TLabel
          Left = 144
          Top = 200
          Width = 47
          Height = 13
          Caption = 'Min Value'
        end
        object Label1: TLabel
          Left = 144
          Top = 176
          Width = 64
          Height = 13
          Caption = 'Default Value'
        end
        object DBGrid1: TDBGrid
          Left = 8
          Top = 8
          Width = 481
          Height = 161
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clNavy
          TitleFont.Height = -13
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnColEnter = DBGrid1ColEnter
          OnKeyPress = DBGrid1KeyPress
          Columns = <
            item
              FieldName = 'FieldName'
              Title.Caption = 'Field Name'
              Width = 189
            end
            item
              FieldName = 'FieldType'
              Title.Caption = 'Field Type'
              Width = 103
            end
            item
              FieldName = 'FieldSize'
              Title.Caption = 'Field Size'
            end
            item
              FieldName = 'RequiredField'
              PickList.Strings = (
                'true'
                'false')
              Title.Caption = 'Req'#39'd Field'
              Width = 87
            end>
        end
        object FldUpBtn: TBitBtn
          Left = 0
          Top = 176
          Width = 67
          Height = 25
          Hint = 'Move the currently selected field up 1 row'
          Caption = 'Move &Up'
          TabOrder = 1
          OnClick = FldUpBtnClick
        end
        object FldDownBtn: TBitBtn
          Left = 68
          Top = 176
          Width = 67
          Height = 25
          Hint = 'Move the currently selected field down 1 row'
          Caption = 'Move &Down'
          TabOrder = 2
          OnClick = FldDownBtnClick
        end
        object BorrowBtn: TBitBtn
          Left = 15
          Top = 204
          Width = 105
          Height = 25
          Hint = 'Use the design of an existing table for this table'
          Caption = '&Borrow design'
          TabOrder = 3
          OnClick = BorrowBtnClick
        end
        object DBEdit1: TDBEdit
          Left = 224
          Top = 176
          Width = 121
          Height = 21
          Hint = 'default value for the current field'
          DataField = 'DefaultValue'
          DataSource = DataSource1
          TabOrder = 4
          OnKeyPress = DBEdit1KeyPress
        end
        object DBEdit2: TDBEdit
          Left = 224
          Top = 200
          Width = 121
          Height = 21
          Hint = 'minimum possible value (only integer, currency and float fields)'
          DataField = 'MinValue'
          DataSource = DataSource1
          TabOrder = 5
          OnKeyPress = DBEdit2KeyPress
        end
        object DBEdit3: TDBEdit
          Left = 224
          Top = 224
          Width = 121
          Height = 21
          Hint = 'maximum possible value (only integer, currency and float fields)'
          DataField = 'MaxValue'
          DataSource = DataSource1
          TabOrder = 6
          OnKeyPress = DBEdit2KeyPress
        end
        object AddFldBtn: TBitBtn
          Left = 0
          Top = 232
          Width = 67
          Height = 25
          Hint = 'add a new field'
          Caption = '&Add field'
          TabOrder = 7
          OnClick = AddFldBtnClick
        end
        object DelFldBtn: TBitBtn
          Left = 68
          Top = 232
          Width = 67
          Height = 25
          Hint = 'delete selected field'
          Caption = 'D&elete field'
          TabOrder = 8
          OnClick = DelFldBtnClick
        end
      end
      object IndexPage: TTabSheet
        Caption = 'Index details'
        object shr1Btn: TSpeedButton
          Left = 168
          Top = 80
          Width = 25
          Height = 25
          Hint = 'Include this field in the index'
          Caption = '>'
          ParentShowHint = False
          ShowHint = False
          OnClick = shr1BtnClick
        end
        object shl1Btn: TSpeedButton
          Left = 168
          Top = 112
          Width = 25
          Height = 25
          Hint = 'remove this field from the index'
          Caption = '<'
          OnClick = shl1BtnClick
        end
        object shrAllBtn: TSpeedButton
          Left = 168
          Top = 152
          Width = 25
          Height = 25
          Hint = 'inlude all fields in the index'
          Caption = '>>'
          OnClick = shrAllBtnClick
        end
        object shlAllBtn: TSpeedButton
          Left = 168
          Top = 184
          Width = 25
          Height = 25
          Hint = 'clear the index'
          Caption = '<<'
          OnClick = shlAllBtnClick
        end
        object ShUpBtn: TSpeedButton
          Tag = -1
          Left = 232
          Top = 219
          Width = 41
          Height = 25
          Hint = 'move the selected index field up'
          Caption = 'Up'
          OnClick = ShUpBtnClick
        end
        object ShDnBtn: TSpeedButton
          Tag = 1
          Left = 280
          Top = 219
          Width = 41
          Height = 25
          Hint = 'move the selected index field down'
          Caption = 'Down'
          OnClick = ShDnBtnClick
        end
        object Label5: TLabel
          Left = 24
          Top = 56
          Width = 111
          Height = 13
          Caption = 'Table fields not in index'
        end
        object Label6: TLabel
          Left = 216
          Top = 56
          Width = 66
          Height = 13
          Caption = 'Fields in index'
        end
        object Label7: TLabel
          Left = 168
          Top = 24
          Width = 62
          Height = 13
          Caption = 'Current index'
        end
        object IndexComboBox: TComboBox
          Left = 248
          Top = 24
          Width = 145
          Height = 21
          Hint = 'current table index'
          Style = csDropDownList
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ItemHeight = 0
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnChange = IndexComboBoxChange
        end
        object DelIndexBtn: TBitBtn
          Left = 408
          Top = 36
          Width = 75
          Height = 25
          Hint = 'delete the current index'
          Caption = '&Delete index'
          TabOrder = 1
          OnClick = DelIndexBtnClick
        end
        object AddIndexBtn: TBitBtn
          Left = 408
          Top = 8
          Width = 75
          Height = 25
          Hint = 'add a new index'
          Caption = '&Add index'
          TabOrder = 2
          OnClick = AddIndexBtnClick
        end
        object EditIndexBtn: TBitBtn
          Left = 408
          Top = 64
          Width = 75
          Height = 25
          Hint = 'rename the index name'
          Caption = '&Edit Index'
          TabOrder = 3
          OnClick = EditIndexBtnClick
        end
        object FieldListBox: TListBox
          Left = 24
          Top = 80
          Width = 121
          Height = 129
          Hint = 'remaining fields'
          ItemHeight = 13
          TabOrder = 4
        end
        object IndexListBox: TListBox
          Left = 216
          Top = 80
          Width = 121
          Height = 129
          Hint = 'selected fields'
          ItemHeight = 13
          TabOrder = 5
          OnClick = IndexListBoxClick
        end
      end
    end
    object Panel3: TPanel
      Left = 364
      Top = 204
      Width = 137
      Height = 81
      BevelOuter = bvLowered
      Caption = 'Panel3'
      TabOrder = 1
      object Label4: TLabel
        Left = 8
        Top = 8
        Width = 121
        Height = 65
        AutoSize = False
        Caption = '     Table Designer'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
        WordWrap = True
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 304
    Width = 521
    Height = 34
    Align = alBottom
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 1
    object OKBtn: TButton
      Left = 187
      Top = 2
      Width = 75
      Height = 25
      Caption = 'OK'
      Default = True
      ModalResult = 1
      TabOrder = 0
      OnClick = OKBtnClick
    end
    object CancelBtn: TButton
      Left = 267
      Top = 2
      Width = 75
      Height = 25
      Cancel = True
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 1
    end
    object HelpBtn: TButton
      Left = 347
      Top = 2
      Width = 75
      Height = 25
      Caption = '&Help'
      TabOrder = 2
      OnClick = HelpBtnClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 338
    Width = 521
    Height = 19
    Panels = <
      item
        Text = 'View mode'
        Width = 80
      end
      item
        Text = 'Table Designer'
        Width = 50
      end>
    SimplePanel = False
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Mini table files (*.mti)|*.mti'
    InitialDir = '.\tables'
    Options = [ofHideReadOnly, ofFileMustExist]
    Left = 8
    Top = 32
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'mti'
    Filter = 'MiniTable files (*.mti)|*.mti'
    Left = 8
    Top = 64
  end
  object FieldTb: TMiniTable
    BeforeInsert = FieldTbBeforeInsert
    AfterInsert = FieldTbAfterInsert
    BeforePost = FieldTbBeforePost
    AfterPost = FieldTbAfterPost
    BeforeDelete = FieldTbBeforeDelete
    AfterDelete = FieldTbAfterDelete
    ReadOnly = False
    Left = 9
    Top = 117
    object FieldTbFieldName: TStringField
      FieldName = 'FieldName'
      OnValidate = FieldTbFieldNameValidate
    end
    object FieldTbFieldType: TStringField
      FieldName = 'FieldType'
      OnChange = FieldTbFieldTypeChange
      OnValidate = FieldTbFieldTypeValidate
    end
    object FieldTbFieldSize: TIntegerField
      FieldName = 'FieldSize'
      OnValidate = FieldTbFieldSizeValidate
    end
    object FieldTbRequiredField: TBooleanField
      FieldName = 'RequiredField'
    end
    object FieldTbDefaultValue: TStringField
      FieldName = 'DefaultValue'
      OnValidate = FieldTbDefaultValueValidate
      Size = 60
    end
    object FieldTbMinValue: TStringField
      FieldName = 'MinValue'
      Size = 60
    end
    object FieldTbMaxValue: TStringField
      FieldName = 'MaxValue'
      Size = 60
    end
    object FieldTbFieldNo: TIntegerField
      FieldName = 'FieldNo'
    end
  end
  object DataSource1: TDataSource
    DataSet = FieldTb
    Left = 8
    Top = 152
  end
end